(Fprimitive_undo): Bind inhibit-read-only to t if

current buffer is read-only, not if it isn't.

diff --git a/src/undo.c b/src/undo.c
index 2eedfe31ab3b78d1369dec6df7e601858423120c..df1b82ff759fc81808429ebadf7b4733eace616c 100644 (file)
--- a/src/undo.c
+++ b/src/undo.c
@@ -412,7 +412,7 @@ Return what remains of the list.")
   GCPRO2 (next, list);
 
   /* Don't let read-only properties interfere with undo.  */
-  if (NILP (current_buffer->read_only))
+  if (!NILP (current_buffer->read_only))
     specbind (Qinhibit_read_only, Qt);
 
   while (arg > 0)